home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / icon / packages.lha / packages / atari / ats.arc / TESTS.ARC / FNCS.ICN < prev    next >
Text File  |  1990-03-28  |  9KB  |  184 lines
  1. record array(a,b,c,d,e,f,g)
  2.  
  3. procedure p1()
  4.    write(" ----> ",image() | "none")
  5.    write("copy(1) ----> ",image(copy(1)) | "none")
  6.    write("copy(\"abc\") ----> ",image(copy("abc")) | "none")
  7.    write("copy('aabbcc') ----> ",image(copy('aabbcc')) | "none")
  8.    write("copy(main) ----> ",image(copy(main)) | "none")
  9.    write("copy([1,2,3]) ----> ",image(copy([1,2,3])) | "none")
  10.    write("copy(table(0)) ----> ",image(copy(table(0))) | "none")
  11.    write("copy() ----> ",image(copy()) | "none")
  12.    write("copy(&input) ----> ",image(copy(&input)) | "none")
  13.    write("w := copy(write) ----> ",image(w := copy(write)) | "none")
  14. end
  15.  
  16. procedure p2()
  17.    write("w(image(w)) ----> ",image(w(image(w))) | "none")
  18.    write("copy(array()) ----> ",image(copy(array())) | "none")
  19.    write("copy := copy(copy) ----> ",image(copy := copy(copy)) | "none")
  20.    write("x := copy(array) ----> ",image(x := copy(array)) | "none")
  21.    write("x := x(1,2,3,4,5,6,7) ----> ",image(x := x(1,2,3,4,5,6,7)) | "none")
  22.    write("x[-4] ----> ",image(x[-4]) | "none")
  23.    write("v := copy(c) ----> ",image(v := copy(c)) | "none")
  24.    write("x := repl(\"123\",4) ----> ",image(x := repl("123",4)) | "none")
  25.    write("display(,&output) ----> ",image(display(,&output)) | "none")
  26.    write("t := table() ----> ",image(t := table()) | "none")
  27.    write("every i := 1 to 100 do t[i] := i ----> ",image(every i := 1 to 100 do t[i] := i) | "none")
  28. end
  29.  
  30. procedure p3()
  31.    write("x := sort(t) ----> ",image(x := sort(t)) | "none")
  32.    write("every write((!x)[2]) ----> ",image(every write((!x)[2])) | "none")
  33.    write("every write(center(\"abcdef\",1 to 20,\" \" | \"0\" | \"=-\")) ----> ",image(every write(center("abcdef",1 to 20," " | "0" | "=-"))) | "none")
  34.    write("every write(left(\"abcdef\",1 to 20,\" \" | \"0\" | \"=-\")) ----> ",image(every write(left("abcdef",1 to 20," " | "0" | "=-"))) | "none")
  35.    write("every write(right(\"abcdef\",1 to 20,\" \" | \"0\" | \"=-\")) ----> ",image(every write(right("abcdef",1 to 20," " | "0" | "=-"))) | "none")
  36.    write("center(\"\",20,repl(\"x.\",30)) ----> ",image(center("",20,repl("x.",30))) | "none")
  37.    write("left(\"\",20,repl(\"x.\",30)) ----> ",image(left("",20,repl("x.",30))) | "none")
  38.    write("right(\"\",20,repl(\"x.\",30)) ----> ",image(right("",20,repl("x.",30))) | "none")
  39.    write("every write(repl(\"a\" | \"ab\" | \"ba\",1 to 5)) ----> ",image(every write(repl("a" | "ab" | "ba",1 to 5))) | "none")
  40.    write("repl(\"\",0) ----> ",image(repl("",0)) | "none")
  41.    write("repl(&cset,0) ----> ",image(repl(&cset,0)) | "none")
  42. end
  43.  
  44. procedure p4()
  45.    write("trim(&lcase) ----> ",image(trim(&lcase)) | "none")
  46.    write("trim(&lcase,&lcase) ----> ",image(trim(&lcase,&lcase)) | "none")
  47.    write("image(2) ----> ",image(image(2)) | "none")
  48.    write("image('cab') ----> ",image(image('cab')) | "none")
  49.    write("image(&lcase) ----> ",image(image(&lcase)) | "none")
  50.    write("image('abcdefghijklmnopqrstuvwxyz') ----> ",image(image('abcdefghijklmnopqrstuvwxyz')) | "none")
  51.    write("image(&input) ----> ",image(image(&input)) | "none")
  52. end
  53.  
  54. procedure p5()
  55.    write("image() ----> ",image(image()) | "none")
  56.    write("image(&null) ----> ",image(image(&null)) | "none")
  57.    write("image([1,2,3]) ----> ",image(image([1,2,3])) | "none")
  58.    write("image([]) ----> ",image(image([])) | "none")
  59.    write("image([,]) ----> ",image(image([,])) | "none")
  60.    write("image(table()) ----> ",image(image(table())) | "none")
  61.    write("image(table(3)) ----> ",image(image(table(3))) | "none")
  62.    write("image(list(0)) ----> ",image(image(list(0))) | "none")
  63.    write("image(set()) ----> ",image(image(set())) | "none")
  64.    write("image(set([1,2,3,3,3,3,3,4])) ----> ",image(image(set([1,2,3,3,3,3,3,4]))) | "none")
  65.    write("image(repl) ----> ",image(image(repl)) | "none")
  66. end
  67.  
  68. procedure p6()
  69.    write("image(main) ----> ",image(image(main)) | "none")
  70.    write("image(repl(&lcase,10)) ----> ",image(image(repl(&lcase,10))) | "none")
  71.    write("image(array) ----> ",image(image(array)) | "none")
  72.    write("image(a) ----> ",image(image(a)) | "none")
  73.    write("image(array) ----> ",image(image(array)) | "none")
  74.    write("image(image) ----> ",image(image(image)) | "none")
  75.    write("string(2) ----> ",image(string(2)) | "none")
  76.    write("string(\"2\") ----> ",image(string("2")) | "none")
  77.    write("string(\" 2\") ----> ",image(string(" 2")) | "none")
  78. end
  79.  
  80. procedure p7()
  81.    write("string(\"2 \") ----> ",image(string("2 ")) | "none")
  82.    write("string(\"+2\") ----> ",image(string("+2")) | "none")
  83.    write("string(\"-2\") ----> ",image(string("-2")) | "none")
  84.    write("string(\"- 2\") ----> ",image(string("- 2")) | "none")
  85.    write("string(\" -    2 \") ----> ",image(string(" -    2 ")) | "none")
  86.    write("string(\"\") ----> ",image(string("")) | "none")
  87.    write("string(\"--2\") ----> ",image(string("--2")) | "none")
  88.    write("string(\" \") ----> ",image(string(" ")) | "none")
  89.    write("string(\"-\") ----> ",image(string("-")) | "none")
  90.    write("string(\"+\") ----> ",image(string("+")) | "none")
  91. end
  92.  
  93. procedure p8()
  94.    write("string(\"22222222222222222222222222222222222222222222222222222222222\") ----> ",image(string("22222222222222222222222222222222222222222222222222222222222")) | "none")
  95.    write("string(\"7r4\") ----> ",image(string("7r4")) | "none")
  96.    write("string(\"4r7\") ----> ",image(string("4r7")) | "none")
  97.    write("string(\"4r 7\") ----> ",image(string("4r 7")) | "none")
  98.    write("string(\"7r 4\") ----> ",image(string("7r 4")) | "none")
  99.    write("string(\"16rff\") ----> ",image(string("16rff")) | "none")
  100. end
  101.  
  102. procedure p9()
  103.    write("string(\"36rcat\") ----> ",image(string("36rcat")) | "none")
  104.    write("string(\"36Rcat\") ----> ",image(string("36Rcat")) | "none")
  105.    write("string(\"36rCAT\") ----> ",image(string("36rCAT")) | "none")
  106.    write("string(\"1r1\") ----> ",image(string("1r1")) | "none")
  107.    write("string(\"2r0\") ----> ",image(string("2r0")) | "none")
  108.    write("type(0) ----> ",image(type(0)) | "none")
  109.    write("type(\"abc\") ----> ",image(type("abc")) | "none")
  110.    write("type('aba') ----> ",image(type('aba')) | "none")
  111.    write("type() ----> ",image(type()) | "none")
  112.    write("type(&null) ----> ",image(type(&null)) | "none")
  113. end
  114.  
  115. procedure p10()
  116.    write("type(&errout) ----> ",image(type(&errout)) | "none")
  117.    write("type([]) ----> ",image(type([])) | "none")
  118.    write("type(table()) ----> ",image(type(table())) | "none")
  119.    write("type(main) ----> ",image(type(main)) | "none")
  120.    write("type(write) ----> ",image(type(write)) | "none")
  121.    write("type(array()) ----> ",image(type(array())) | "none")
  122.    write("type(array) ----> ",image(type(array)) | "none")
  123.    write("type(f) ----> ",image(type(f)) | "none")
  124.    write("cset(2) ----> ",image(cset(2)) | "none")
  125. end
  126.  
  127. procedure p11()
  128.    write("cset(\"2\") ----> ",image(cset("2")) | "none")
  129.    write("cset(\" 2\") ----> ",image(cset(" 2")) | "none")
  130.    write("cset(\"2 \") ----> ",image(cset("2 ")) | "none")
  131.    write("cset(\"+2\") ----> ",image(cset("+2")) | "none")
  132.    write("cset(\"-2\") ----> ",image(cset("-2")) | "none")
  133.    write("cset(\"- 2\") ----> ",image(cset("- 2")) | "none")
  134.    write("cset(\" -    2 \") ----> ",image(cset(" -    2 ")) | "none")
  135.    write("cset(\"\") ----> ",image(cset("")) | "none")
  136.    write("cset(\"--2\") ----> ",image(cset("--2")) | "none")
  137.    write("cset(\" \") ----> ",image(cset(" ")) | "none")
  138.    write("cset(\"-\") ----> ",image(cset("-")) | "none")
  139. end
  140.  
  141. procedure p12()
  142.    write("cset(\"+\") ----> ",image(cset("+")) | "none")
  143.    write("cset(\"22222222222222222222222222222222222222222222222222222222222\") ----> ",image(cset("22222222222222222222222222222222222222222222222222222222222")) | "none")
  144.    write("cset(\"7r4\") ----> ",image(cset("7r4")) | "none")
  145.    write("cset(\"4r7\") ----> ",image(cset("4r7")) | "none")
  146.    write("cset(\"4r 7\") ----> ",image(cset("4r 7")) | "none")
  147. end
  148.  
  149. procedure p13()
  150.    write("cset(\"7r 4\") ----> ",image(cset("7r 4")) | "none")
  151.    write("cset(\"16rff\") ----> ",image(cset("16rff")) | "none")
  152.    write("cset(\"36rcat\") ----> ",image(cset("36rcat")) | "none")
  153.    write("cset(\"36Rcat\") ----> ",image(cset("36Rcat")) | "none")
  154.    write("cset(\"36rCAT\") ----> ",image(cset("36rCAT")) | "none")
  155.    write("cset(\"1r1\") ----> ",image(cset("1r1")) | "none")
  156.    write("cset(\"2r0\") ----> ",image(cset("2r0")) | "none")
  157.    write("every write(seq()) \\ 10 ----> ",image(every write(seq()) \ 10) | "none")
  158.    write("every write(seq(2)) \\ 10 ----> ",image(every write(seq(2)) \ 10) | "none")
  159.    write("every write(seq(-10)) \\ 10 ----> ",image(every write(seq(-10)) \ 10) | "none")
  160.    write("every write(seq(,3)) \\ 10 ----> ",image(every write(seq(,3)) \ 10) | "none")
  161. end
  162.  
  163. procedure p14()
  164. end
  165.  
  166. procedure main()
  167.    p1()
  168.    p2()
  169.    p3()
  170.    p4()
  171.    p5()
  172.    p6()
  173.    p7()
  174.    p8()
  175.    p9()
  176.    p10()
  177.    p11()
  178.    p12()
  179.    p13()
  180.    p14()
  181. end
  182.  
  183. global w, t
  184.